home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / util / boot / codepw.lha / codepw 2.0 / löschen codePW 2.0 < prev   
Encoding:
Text File  |  1997-07-22  |  884 b   |  42 lines
  1. ; codePW 2.0 löschen  by Jürgen Einrauch 16. Juli 1997      
  2. failat 21
  3.  
  4. echo "  *n*e[1;32m  ___________________________________________________"
  5. echo "  *e[43m                                                   *e[0m"
  6. echo "  *e[0;28;43m       Nur für Version 2.0    codePW löschen*e[1m       *e[0m"
  7. echo "  *e[1;4;43m                                                   *e[0m*n"
  8.  
  9. IF NOT EXISTS SYS:S/codePW
  10. echo "*n   codepW nicht gefunden"
  11. echo "   Löschen abgebrochen"
  12. WAIT 2 secs
  13. EndCLI >NIL:
  14. quit
  15. ELSE
  16. echo noline "*n   Wollen Sie codePW jetzt löschen? (Ja/Nein): "
  17. set > nil: in ?
  18. IF $in eq "ja"
  19.   skip start
  20. endif
  21. IF $in eq "j"
  22.   skip start
  23. endif
  24. IF $in eq "y"
  25.   skip start
  26. endif
  27. IF $in eq "yes"
  28.   skip start
  29. endif
  30. echo noline "*n   Löschen abgebrochen."
  31. EndCLI >NIL:
  32. quit
  33. endif
  34.  
  35. lab start
  36. echo "*n   Lösche jetzt codePW"
  37. delete >nil: s:codePW
  38. endif
  39. WAIT 2 secs
  40. EndCLI >NIL:
  41. quit
  42.